Итак, сразу код.

theView = av.FindDoc("View1")

tbl = FTab.MakeNew("c:\test.shp".AsFileName, Point)
theTheme = FTheme.Make(tbl)
shpField = tbl.FindField("Shape")
fields = List.Make
fields.Add(Field.Make("IDS", #FIELD_SHORT, 4, 0))
tbl.AddFields(fields)

for each x in 1..5
  rec = tbl.AddRecord
  p = Point.Make(0.2+(x/10),0.6+(x/10))
  tbl.SetValue( shpField, rec, p )
end

theView.AddTheme(theTheme)

А вот такой будет примерно результат.

Что здесь Важно. Самое первое это добавить хоть одно свое поле, иначе AddRecord не сработает и вернет -1.

fields = List.Make
fields.Add(Field.Make("IDS", #FIELD_SHORT, 4, 0))
tbl.AddFields(fields)

Ну и само добавление точки. Немного не привычно, дело в том, что полю Shape нужно установить соответствующий объект. У нас точка, значит точку.

p = Point.Make(0.2+(x/10),0.6+(x/10))
tbl.SetValue( shpField, rec, p )

Вот в принципе и все.